home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Taifun
/
Taifun 079 (1988-11-15)(Ossowski, Stefan)(DE)(PD).zip
/
Taifun 079 (1988-11-15)(Ossowski, Stefan)(DE)(PD).adf
/
Videodatei
/
video_v1.00
(
.txt
)
< prev
next >
Wrap
AmigaBASIC Source Code
|
1988-08-14
|
29KB
|
1,149 lines
REM ************************************
REM * *
REM * V I D E O V E R W A L T U N G *
REM * *
REM * (C) copyright 1988 by *
REM * *
REM * Michael Junker *
REM * *
REM ************************************
CLEAR ,80000
SCREEN 2,640,250,4,2
WINDOW 2,"",,0,2
DIM Ftit$(250),Fummer$(250),Bem$(250)
Anfang:
FOR x=0 TO 15
PALETTE x,0,0,0
NEXT x
COLOR 0,0 : CLS : COLOR 5,6 : i=5 : Nr=1
LINE (10,10)-(630,60),6,bf
LINE (20,20)-(620,50),5,b
CIRCLE ( 55,35),10,4 : CIRCLE (580,35),10,4
CIRCLE ( 85,35),10,4 : CIRCLE (550,35),10,4
CIRCLE (115,35),10,4 : CIRCLE (520,35),10,4
CIRCLE (145,35),10,4 : CIRCLE (490,35),10,4
CIRCLE (175,35),10,4 : CIRCLE (460,35),10,4
LOCATE 5,26 : PRINT " V I D E O D A T E I V1.01 "
LOCATE 6,28 : PRINT " © Copyright by M. Junker "
Anfang1:
GOSUB Recorder : COLOR 7,0
FOR x=0 TO 250 : NEXT x
LINE ( 66,137)-(556,157),4,bf
LINE ( 66,161)-(556,181),4,bf
LINE ( 66,185)-(556,205),4,bf
LINE ( 70,140)-(550,154),5,b
LINE ( 70,164)-(550,178),5,b
LINE ( 70,188)-(550,202),5,b
LINE (222,140)-(222,154),5
LINE (368,140)-(368,154),5
LINE (222,165)-(222,178),5
LINE (368,165)-(368,178),5
LINE (222,202)-(222,188),5
LINE (368,202)-(368,188),5
COLOR 7,4
LOCATE 19,12 : PRINT "Datei Sortieren"
LOCATE 19,30 : PRINT " f r e i "
LOCATE 19,51 : PRINT "Etikett drucken"
LOCATE 22,13 : PRINT "Daten löschen"
LOCATE 22,32 : PRINT "Daten suchen"
LOCATE 22,51 : PRINT "Datei Editieren"
LOCATE 25,16 : PRINT "Eingaben"
LOCATE 25,32 : PRINT "Datei zeigen"
LOCATE 25,52 : PRINT "Datei drucken"
GOSUB Farbdef
ON BREAK GOSUB ente
BREAK ON
Maus:
ON MOUSE GOSUB Start
COLOR 5,8 : LOCATE 13,23 : PRINT TIME$
MOUSE ON
GOTO Maus
Start:
Maus=MOUSE(0)
y=MOUSE(1) : x= MOUSE(2)
IF x>141 AND x<154 AND y> 73 AND y<224 THEN Datsort
IF x>141 AND x<154 AND y>226 AND y<340 THEN Maus
IF x>141 AND x<154 AND y>371 AND y<553 THEN Etidruck
IF x>166 AND x<180 AND y> 73 AND y<224 THEN Datlosch
IF x>166 AND x<180 AND y>371 AND y<552 THEN Dated
IF x>166 AND x<180 AND y>226 AND y<371 THEN Datsuch
IF x>190 AND x<203 AND y> 73 AND y<224 THEN Eingaben
IF x>190 AND x<203 AND y>227 AND y<372 THEN Zeigen
IF x>190 AND x<203 AND y>374 AND y<553 THEN Drucken
IF x>111 AND x<122 AND y>106 AND y<133 THEN Allesende
RETURN
Drucken:
FOR x=0 TO 15
PALETTE x,0,0,0
NEXT x
COLOR 0,0 : CLS : COLOR 5,6 : Nr=1
LINE (110,10)-(500,40),6,bf
LINE (120,15)-(490,35),5,b
LOCATE 4,32 :PRINT "Drucker Modus !"
LINE (100, 50)-(510, 50)
LINE (100, 50)-(100,140)
LINE (510, 50)-(510,140)
LINE (100,140)-(220,120)
LINE (220,120)-(510,140)
LINE (120, 50)-(120,137)
LINE (490, 50)-(490,139)
FOR g=55 TO 138 STEP 8
CIRCLE (110,g),3
NEXT g
FOR g=55 TO 138 STEP 8
CIRCLE (500,g),3
NEXT g
PAINT (140,80),7,5 : PAINT (110,100),7,5 : PAINT (495,80),7,5
COLOR 5,7
LOCATE 8,30 : PRINT "V I D E O L I S T E"
LOCATE 10,34 : PRINT DATE$
LOCATE 12,17 : PRINT "Lfd | Filmtitel | Cassnr. | Bemerkung"
LOCATE 13,17 : PRINT "---------------------------------------------"
LOCATE 14,17 : PRINT " 1 Der Joker 123 gesehen "
LOCATE 15,17 : PRINT " 2 Schneewitchen 432 Kinderfilm"
LOCATE 16,17 : PRINT " 3 "
LOCATE 16,42 : PRINT " 41 Horror"
COLOR 4,0
Anfang5:
FOR x=0 TO 250 : NEXT x
LINE ( 66,205)-(556,185),4,bf
LINE (215,160)-(375,180),4,bf
LINE (222,163)-(368,178),5,b
LINE ( 70,202)-(550,188),5,b
LINE (222,202)-(222,188),5
LINE (368,202)-(368,188),5 : COLOR 7,4
LOCATE 22,34 : PRINT "Zurück !"
LOCATE 25,12 : PRINT "Draft-Ausdruck"
LOCATE 25,32 : PRINT "NLQ-Ausdruck"
LOCATE 25,49 : PRINT "Tiefschwarzdruck !"
GOSUB Farbdef: GOSUB Vorhanden
IF vorhand=1 THEN
BEEP
COLOR 5,0 : LOCATE 20,10 : PRINT " ... he Baby ! Erst was eingeben und dann Drucken !!!"
FOR z=0 TO 4000 : NEXT z : COLOR 0,0 : GOTO Anfang
END IF
Maus1:
ON MOUSE GOSUB Start1
COLOR 4,7 : LOCATE 9,35 : PRINT TIME$
MOUSE ON
GOTO Maus1
Start1:
Maus=MOUSE(0)
y=MOUSE(1) : x= MOUSE(2)
IF x>190 AND x<203 AND y> 73 AND y<224 THEN Druck=1 : GOTO Nlq
IF x>190 AND x<203 AND y>227 AND y<372 THEN Druck=2 : GOTO Nlq
IF x>190 AND x<203 AND y>374 AND y<553 THEN Tiefschwarzdruck
IF x>164 AND x<179 AND y>226 AND y<371 THEN COLOR 0,0 : CLOSE 1 : GOTO Anfang
GOTO Start1
Nlq:
Nr=1 : Blattende=10 : s=1
OPEN "Video" FOR INPUT AS 1
OPEN "par:" FOR OUTPUT AS 2
IF Druck=2 THEN PRINT#2,CHR$(27);"x1"
PRINT#2,CHR$(14)" Videoliste "
PRINT#2," Blatt:"s
PRINT#2,"" : PRINT#2," Stand: "DATE$ : PRINT#2,""
PRINT#2," Lfd.Nr.| Filmtitel | Cassnr.| Bemerkung "
PRINT#2,"---------------------------------------------------------------------"
Einlesen2:
INPUT#1,Ftit$ : INPUT#1,Fummer$ : INPUT#1,Bem$
Nr$=STR$(Nr)
a$=" " : x=LEN(Ftit$) : z=30-x
FOR w=0 TO z : Ftit$=Ftit$+a$ : NEXT w
a$=" " : x=LEN(Fummer$) : z=3-x
FOR w=0 TO z : Fummer$=Fummer$+a$ : NEXT w
a$=" " : x=LEN(Bem$) : z=17-x
FOR w=0 TO z : Bem$=Bem$+a$ : NEXT w
a$=" " : x=LEN(Nr$) : z=3-x
FOR w=0 TO z : Nr$=a$+Nr$ : NEXT w
PRINT#2," "Nr$" "Ftit$" "Fummer$" "Bem$
Nr=Nr+1
Blattende=Blattende+1
IF Blattende>59 THEN
s=s+1
FOR t=0 TO 14 : PRINT#2,"" : NEXT t
PRINT#2,CHR$(14)" Videoliste "
PRINT#2," Blatt:"s
PRINT#2,"" : PRINT#2," Stand: "DATE$ : PRINT#2,""
PRINT#2," Lfd.Nr.| Filmtitel | Cassnr.| Bemerkung "
PRINT#2,"---------------------------------------------------------------------"
Blattende=10
END IF
IF EOF(1)=0 THEN Einlesen2
FOR i=0 TO 3 : BEEP : NEXT i
PRINT#2,CHR$(27);"x0" : CLOSE 1,2 : COLOR 0,0 : GOTO Maus1
Tiefschwarzdruck:
Nr=1 : Blattende=10 : s=1
OPEN "Video" FOR INPUT AS 1
OPEN "par:" FOR OUTPUT AS 2
PRINT#2,CHR$(27);"G";
FOR i=0 TO 3
PRINT#2,CHR$(14)" Videoliste ";
PRINT#2,CHR$(13);: NEXT i
PRINT#2,""
FOR i=0 TO 3
PRINT#2," Blatt:"s;
PRINT#2,CHR$(13);: NEXT i
PRINT#2,"" : PRINT#2,""
FOR i=0 TO 3
PRINT#2," Stand: "DATE$ ;
PRINT#2,CHR$(13);:NEXT i
PRINT#2,"":PRINT#2,""
FOR i=0 TO 3
PRINT#2," Lfd.Nr.| Filmtitel | Cassnr.| Bemerkung ";
PRINT#2,CHR$(13);:NEXT i
PRINT#2,""
FOR i=0 TO 3
PRINT#2,"---------------------------------------------------------------------";
PRINT#2,CHR$(13);:NEXT i : PRINT#2,""
Einlesen3:
INPUT#1,Ftit$ : INPUT#1,Fummer$ : INPUT#1,Bem$
Nr$=STR$(Nr)
a$=" " : x=LEN(Ftit$) : z=30-x
FOR w=0 TO z : Ftit$=Ftit$+a$ : NEXT w
a$=" " : x=LEN(Fummer$) : z=3-x
FOR w=0 TO z : Fummer$=Fummer$+a$ : NEXT w
a$=" " : x=LEN(Bem$) : z=17-x
FOR w=0 TO z : Bem$=Bem$+a$ : NEXT w
a$=" " : x=LEN(Nr$) : z=3-x
FOR w=0 TO z : Nr$=a$+Nr$ : NEXT w
FOR i=0 TO 3
PRINT#2," "Nr$" "Ftit$" "Fummer$" "Bem$;
PRINT#2,CHR$(13);:NEXT i : PRINT#2,""
Nr=Nr+1
Blattende=Blattende+1
IF Blattende>59 THEN
s=s+1
FOR t=0 TO 14 : PRINT#2,"" : NEXT t
PRINT#2,CHR$(27);"G";
FOR i=0 TO 3
PRINT#2,CHR$(14)" Videoliste ";
PRINT#2,CHR$(13);: NEXT i
PRINT#2,""
FOR i=0 TO 3
PRINT#2," Blatt:"s;
PRINT#2,CHR$(13);: NEXT i
PRINT#2,"" : PRINT#2,""
FOR i=0 TO 3
PRINT#2," Stand: "DATE$ ;
PRINT#2,CHR$(13);:NEXT i
PRINT#2,"":PRINT#2,""
FOR i=0 TO 3
PRINT#2," Lfd.Nr.| Filmtitel | Cassnr.| Bemerkung ";
PRINT#2,CHR$(13);:NEXT i
PRINT#2,""
FOR i=0 TO 3
PRINT#2,"---------------------------------------------------------------------";
PRINT#2,CHR$(13);:NEXT i : PRINT#2,""
Blattende=10
END IF
IF EOF(1)=0 THEN Einlesen3
FOR i=0 TO 3 : BEEP : NEXT i
PRINT#2,CHR$(27);"H" : CLOSE 1,2 : COLOR 0,0 : GOTO Maus1
Eingaben:
OPEN "Video" FOR APPEND AS 1
FOR x=0 TO 15
PALETTE x,0,0,0
NEXT x
COLOR 0,0 : CLS : COLOR 4,6
LINE (110,10)-(510,40),6,bf
LINE (120,15)-(500,35),5,b
LINE (110,10)-(510,42),6,bf
LINE (120,15)-(500,37),5,b
LOCATE 4,31 : PRINT "Eingabe Modus !"
COLOR 5,4
LINE ( 66,162)-(556,181),4,bf
LINE ( 70,179)-(550,164),5,b
LINE (222,179)-(222,164),5
LINE (368,179)-(368,164),5
Eingabe3:
COLOR 5,4 : daten=0
LOCATE 22,13 : PRINT "OK! Speichern"
LOCATE 22,30 : PRINT " Eingabe ! "
LOCATE 22,50 : PRINT "zurück Hauptmenue"
COLOR 14,0
LOCATE 12,5 : PRINT " Film Titel : .............................."
LOCATE 14,5 : PRINT " Cassetten Nummer : ..."
LOCATE 16,5 : PRINT " Bemerkung : ................."
COLOR 8,0
GOSUB Farbdef
Eingabemaus1:
ON MOUSE GOSUB Eingabestart1
COLOR 4,0 : LOCATE 24,34 : PRINT TIME$
MOUSE ON
GOTO Eingabemaus1
Eingabestart1:
Maus=MOUSE(0)
y=MOUSE(1) : x= MOUSE(2)
IF x>166 AND x<180 AND y>226 AND y<370 THEN Eingaben1
IF x>166 AND x<180 AND y>371 AND y<552 THEN CLOSE 1 : GOTO Anfang
RETURN
Eingaben1:
COLOR 7,0
LOCATE 12,24 : PRINT " .............................."
LOCATE 14,24 : PRINT " ..."
LOCATE 16,24 : PRINT " ................."
LOCATE 12,25 : LINE INPUT "",Ftit$
IF Ftit$="" THEN Ausgabe
LOCATE 14,25 : LINE INPUT "",Fummer$
LOCATE 16,25 : LINE INPUT "",Bem$
daten=1 : COLOR 5,4
LOCATE 22,30 : PRINT "falsche Eingabe!"
COLOR 14,0
Eingabemaus:
ON MOUSE GOSUB Eingabestart
MOUSE ON
GOTO Eingabemaus
Eingabestart:
Maus=MOUSE(0)
y=MOUSE(1) : x= MOUSE(2)
IF x>165 AND x<180 AND y> 73 AND y<224 THEN Speichern
IF x>166 AND x<180 AND y>226 AND y<370 THEN Eingaben1
IF x>166 AND x<180 AND y>371 AND y<552 THEN CLOSE 1 : GOTO Anfang
RETURN
Speichern:
IF daten=0 THEN Eingabe3
PRINT#1,Ftit$
PRINT#1,Fummer$
PRINT#1,Bem$
GOTO Eingabe3
Zeigen:
FOR x=0 TO 15
PALETTE x,0,0,0
NEXT x
COLOR 0,0 : CLS : COLOR 5,6 : Nr=1
LINE (110,10)-(510,37),6,bf
LINE (120,15)-(500,32),5,b
COLOR 4,6
LOCATE 4,33 :PRINT "DATEI ZEIGEN !"
LOCATE 6,3 : COLOR 9,6 : PRINT" Lfd.Nr Filmtitel Cass.Nr Bemerkung "
GOSUB Linien : GOSUB Sauber1 : y=8 : GOSUB Farbdef
GOSUB Vorhanden
IF vorhand=1 THEN
BEEP
COLOR 5,7 : LOCATE 20,10 : PRINT " ... he Baby ! Erst was eingeben und zeigen lassen !!!"
FOR z=0 TO 4000 : NEXT z : COLOR 0,0 : GOTO Anfang
END IF
OPEN "Video" FOR INPUT AS 1
Zeig1:
COLOR 5,7
INPUT#1,Ftit$ : INPUT#1,Fummer$ : INPUT#1,Bem$
Nr$=STR$(Nr)
a$=" " : x=LEN(Ftit$) : z=30-x
FOR w=0 TO z : Ftit$=Ftit$+a$ : NEXT w
a$=" " : x=LEN(Fummer$) : z=3-x
FOR w=0 TO z : Fummer$=Fummer$+a$ : NEXT w
a$=" " : x=LEN(Bem$) : z=17-x
FOR w=0 TO z : Bem$=Bem$+a$ : NEXT w
a$=" " : x=LEN(Nr$) : z=3-x
FOR w=0 TO z : Nr$=a$+Nr$ : NEXT w
LOCATE y,3 : PRINT" "Nr$" "Ftit$" "Fummer$" "Bem$
Nr=Nr+1 : y=y+2
IF y>27 THEN GOSUB Warte : y=8
IF EOF(1)=0 THEN Zeig1
COLOR 4,7 : LOCATE y,17 : PRINT "ENDE DER DATEI - PRESS SPACE TO CONTINUE ! " : COLOR 5,7
GOSUB Warte1 : CLOSE 1 : GOTO Anfang
Warte:
COLOR 4,7
LOCATE y,15 : PRINT "Space um weiter einzulesen linke Maus zum beenden !!!" :GOSUB Warte1
GOSUB Sauber1 : COLOR 5,6 : RETURN
Warte1:
ON MOUSE GOSUB Beenden
MOUSE ON
IF INKEY$="" THEN Warte1
RETURN
Beenden:
CLOSE 1: GOTO Anfang
RETURN
Sauber1:
y=8 : COLOR 8,7
FOR i=0 TO 10
LOCATE y,3 : PRINT SPACE$(75)
y=y+2 : NEXT i
RETURN
Linien:
p=16 : q=39 : r=617 : s=48 :i=10
FOR f=0 TO 3
LINE (p,q)-(r,s),4,b
p=p-2 : q=q-1 : r=r+2 : s=s+1 : i=i+0.1
NEXT f
LINE (13, 54)-(620, 65),4,bf
LINE (13, 70)-(620, 81),4,bf
LINE (13, 86)-(620, 97),4,bf
LINE (13,102)-(620,113),4,bf
LINE (13,118)-(620,129),4,bf
LINE (13,134)-(620,145),4,bf
LINE (13,150)-(620,161),4,bf
LINE (13,166)-(620,177),4,bf
LINE (13,182)-(620,193),4,bf
LINE (13,198)-(620,209),4,bf
LINE (13,214)-(620,225),4,bf
RETURN
Recorder:
LINE ( 95, 85)-(530,125),14,bf
COLOR 9,14
LOCATE 12,41 : PRINT " 1 2 3 4 5 6 7 8 "
LOCATE 15,20 : PRINT "VHS-HIFI-VIDEO"
LINE (101,110)-(130,120),4,bf : COLOR 5,4
LINE (101,110)-(131,120),5,b
LOCATE 15,14 : PRINT "OFF"
COLOR 5,14
LOCATE 15,41 : PRINT " PLAY REW FFW STOP PAUSE"
CIRCLE (331,100),6
LINE (110, 90)-(300,105),8,bf : CIRCLE (355,100),6
LINE (112, 91)-(298,104),9,b
LINE (138,110)-(274,120),5,b : CIRCLE (379,100),6
LINE (325,110)-(362,120),5,b : CIRCLE (403,100),6
LINE (367,110)-(393,120),5,b : CIRCLE (427,100),6
LINE (397,110)-(426,120),5,b : CIRCLE (451,100),6
LINE (430,110)-(465,120),5,b : CIRCLE (476,100),6
LINE (470,110)-(515,120),5,b : CIRCLE (500,100),6
RETURN
Farbdef:
PALETTE 0,0,0,1
PALETTE 1,0,0,1
PALETTE 2,0,0,1
PALETTE 3,0,0,1
PALETTE 4,1,0,0
PALETTE 5,0,0,0
PALETTE 6,0.1,0.8,0.8
PALETTE 7,1,1,1
PALETTE 8,0.8,0.8,0.8
PALETTE 9,0,0,0.6
PALETTE 10,0,0,0
PALETTE 11,0,0,0
PALETTE 12,0,0,0
PALETTE 13,0,0,0
PALETTE 14,0.5,0.5,0.5
PALETTE 15,RND,RND,RND
RETURN
Dated:
losch1=1 : daten=0
FOR x=0 TO 15
PALETTE x,0,0,0
NEXT x
COLOR 0,0 : CLS
LINE (110,10)-(510,37),6,bf
LINE (120,15)-(500,32),5,b
COLOR 4,6
LINE (110,10)-(510,40),6,bf
LINE (120,15)-(500,35),5,b
LINE (110,10)-(510,42),6,bf
LINE (120,15)-(500,37),5,b
LOCATE 4,32 :PRINT "DATEN EDITIEREN!"
COLOR 5,4
LINE ( 66,162)-(556,181),4,bf
LINE ( 70,179)-(550,164),5,b
LINE (222,179)-(222,164),5
LINE (368,179)-(368,164),5
LOCATE 22,13 : PRINT "OK! Speichern"
LOCATE 22,30 : PRINT " Editieren ! "
LOCATE 22,50 : PRINT "zurück Hauptmenue"
Ein3:
COLOR 5,0
LINE (188,134)-(452,145),6,b
LINE (188,100)-(452,130),7,bf
LINE (187, 99)-(453,131),5,b
LOCATE 18,13 : PRINT " Editor :"
LOCATE 14,10 : PRINT "Filmtitel :"
LOCATE 15,10 : PRINT "Cassetten Nr:"
LOCATE 16,10 : PRINT "Bemerkung :"
GOSUB Farbdef
Ein4:
GOSUB Vorhanden
IF vorhand=1 THEN
BEEP : COLOR 5,0 : LOCATE 10,25 : PRINT " ... keine Daten vorhanden ...!!! "
FOR z=0 TO 4000 : NEXT z : GOTO Anfang
END IF
GOSUB Einlesenneu
Datedmaus:
ON MOUSE GOSUB Datedstart
COLOR 4,0 : LOCATE 24,34 : PRINT TIME$
MOUSE ON
GOTO Datedmaus
Datedstart:
Maus=MOUSE(0)
y=MOUSE(1) : x= MOUSE(2)
IF x>165 AND x<180 AND y> 73 AND y<224 THEN Datedspeichern
IF x>166 AND x<180 AND y>226 AND y<370 THEN Editieren
IF x>166 AND x<180 AND y>371 AND y<552 THEN CLOSE 1 : GOTO Anfang
RETURN
Datedmaus1:
ON MOUSE GOSUB Datedstart1
COLOR 4,0 : LOCATE 24,34 : PRINT TIME$
MOUSE ON
GOTO Datedmaus1
Datedstart1:
Maus=MOUSE(0)
y=MOUSE(1) : x= MOUSE(2)
IF x>165 AND x<180 AND y> 73 AND y<224 THEN Datedspeichern
IF x>166 AND x<180 AND y>226 AND y<370 THEN Schreibneu
IF x>166 AND x<180 AND y>371 AND y<552 THEN Anfang
RETURN
Schreibneu:
COLOR 5,4
LOCATE 22,30 : PRINT " Editieren ! "
COLOR 3,7
LOCATE 14,25 : PRINT SPACE$(28)
LOCATE 15,25 : PRINT SPACE$(28)
LOCATE 16,25 : PRINT SPACE$(28)
COLOR 0,0
LOCATE 8,17 : PRINT SPACE$(50)
LOCATE 10,16 : PRINT SPACE$(50)
GOTO Datedmaus
Editieren:
COLOR 5,4
LOCATE 22,30 : PRINT " Editieren ! "
COLOR 5,0
LOCATE 8,17 : PRINT " Es befinden sich"losch1"Datensätze im Speicher !"
LOCATE 10,16 : INPUT " Welcher Datensatz soll Editiert werden(Nr.) :",losch
IF losch<1 OR losch>losch1 THEN BEEP : GOTO Editieren2
GOTO Editieren3
Editieren2:
LOCATE 10,13 : PRINT" ... Datensatz mit dieser Nummer existiert nicht ! "
FOR v=0 TO 2500 : NEXT v
LOCATE 10,13 : PRINT SPACE$(57)
GOTO Editieren
Editieren3:
COLOR 5,4
LOCATE 22,30 : PRINT " zurück ! "
COLOR 5,7
LOCATE 14,25 : z=LEN(Ftit$(losch)) : PRINT Ftit$(losch)+SPACE$(32-z)
LOCATE 15,25 : PRINT Fummer$(losch)+SPACE$(26)
LOCATE 16,25 : PRINT Bem$(losch)+SPACE$(15)
COLOR 5,0
LOCATE 18,12 : COLOR 4,0 : PRINT "Filmtitel :" : COLOR 5,0
LOCATE 18,25 : INPUT "",a$ : IF a$<>"" THEN Ftit$(losch)=a$ : a$=""
LOCATE 18,25 : PRINT SPACE$(32) : COLOR 5,7
LOCATE 14,25 : PRINT Ftit$(losch)+SPACE$(32-LEN(Ftit$(losch))): COLOR 5,0
LOCATE 18,12 : COLOR 4,0 : PRINT "Cass.Nr. :" : COLOR 5,0
LOCATE 18,25 : INPUT "",b$ : IF b$<>"" THEN Fummer$(losch)=b$ : b$=""
LOCATE 18,25 : PRINT SPACE$(32) : COLOR 5,7
LOCATE 15,25 : PRINT Fummer$(losch)+SPACE$(32-LEN(Fummer$(losch))) : COLOR 5,0
LOCATE 18,12 : COLOR 4,0 : PRINT "Bemerkung :" : COLOR 5,0
LOCATE 18,25 : INPUT "",c$ : IF c$<>"" THEN Bem$(losch)=c$ : c$=""
LOCATE 18,25 : PRINT SPACE$(32) : COLOR 5,7
LOCATE 16,25 : PRINT Bem$(losch)+SPACE$(32-LEN(Bem$(losch))) : COLOR 5,0
COLOR 5,0 : daten=1 : LOCATE 18,12 : PRINT "Editor :" : GOTO Datedmaus1
Datedspeichern:
IF daten=0 THEN Datedmaus
KILL "Video"
OPEN "Video" FOR APPEND AS 1
neu2=1
Fertig2:
IF neu2>losch1 THEN
COLOR 5,4
LOCATE 22,30 : PRINT " Editieren ! "
COLOR 3,7
LOCATE 14,25 : PRINT SPACE$(28)
LOCATE 15,25 : PRINT SPACE$(28)
LOCATE 16,25 : PRINT SPACE$(28)
COLOR 0,0
LOCATE 8,17 : PRINT SPACE$(50)
LOCATE 10,16 : PRINT SPACE$(50)
GOTO Datedmaus
END IF
PRINT#1,Ftit$(neu2)
PRINT#1,Fummer$(neu2)
PRINT#1,Bem$(neu2)
neu2=neu2+1 : GOTO Fertig2
RETURN
Datlosch:
losch1=1
FOR x=0 TO 15
PALETTE x,0,0,0
NEXT x
COLOR 0,0 : CLS
LINE (110,10)-(510,42),6,bf
LINE (120,15)-(500,37),5,b
COLOR 5,4
LINE ( 66,162)-(556,181),4,bf
LINE ( 70,179)-(550,164),5,b
LINE (222,179)-(222,164),5
LINE (368,179)-(368,164),5
LOCATE 22,13 : PRINT " Löschen "
LOCATE 22,31 : PRINT "Nummer eingeben"
LOCATE 22,50 : PRINT "zurück Hauptmenue"
COLOR 4,6
LOCATE 4,33 :PRINT "DATEN LÖSCHEN!"
COLOR 5,7
LINE (100,95)-(540,135),5,bf
COLOR 7,5
LOCATE 14,16 : PRINT "Filmtitel :"
LOCATE 15,16 : PRINT "Cassetten Nr:"
LOCATE 16,16 : PRINT "Bemerkung :"
COLOR 5,7
LOCATE 14,30 : PRINT SPACE$(34)
LOCATE 15,30 : PRINT SPACE$(34)
LOCATE 16,30 : PRINT SPACE$(34)
COLOR 5,0
GOSUB Farbdef
Ein1:
GOSUB Vorhanden
IF vorhand=1 THEN
BEEP : COLOR 5,0 : LOCATE 10,25 : PRINT " ... keine Daten vorhanden ...!!! "
FOR z=0 TO 4000 : NEXT z : GOTO Anfang
END IF
GOSUB Einlesenneu
Datloschmaus:
ON MOUSE GOSUB Datloschstart
COLOR 4,0 : LOCATE 24,34 : PRINT TIME$
MOUSE ON
GOTO Datloschmaus
Datloschstart:
Maus=MOUSE(0)
y=MOUSE(1) : x= MOUSE(2)
IF x>165 AND x<180 AND y> 73 AND y<224 THEN Datloschstart
IF x>166 AND x<180 AND y>226 AND y<370 THEN Nummereingeben
IF x>166 AND x<180 AND y>371 AND y<552 THEN COLOR 0,0 : CLOSE 1 : GOTO Anfang
RETURN
Datloschmaus1:
ON MOUSE GOSUB Datloschstart1
COLOR 4,0 : LOCATE 24,34 : PRINT TIME$
MOUSE ON
GOTO Datloschmaus1
Datloschstart1:
Maus=MOUSE(0)
y=MOUSE(1) : x= MOUSE(2)
IF x>166 AND x<180 AND y>226 AND y<370 THEN LOCATE 22,30 : COLOR 5,4 :PRINT "Nummer eingeben!" : GOTO Datloschmaus
IF x>165 AND x<180 AND y> 73 AND y<224 THEN Loschen
RETURN
Nummereingeben:
COLOR 7,0
LOCATE 8,17 : PRINT " Es befinden sich"losch1" Datensätze im Speicher !"
LOCATE 10,16 : INPUT "Welcher Datensatz soll gelöscht werden(Nr.):",losch$
losch=VAL(losch$) : IF losch<1 OR losch >losch1 THEN BEEP : GOTO Noexist
COLOR 5,4 : LOCATE 22,30 : PRINT " vergiss es ! " : COLOR 5,7
LOCATE 14,30 :z=LEN(Ftit$(losch)) : PRINT Ftit$(losch)+SPACE$(32-z)
LOCATE 15,30 : PRINT Fummer$(losch)+SPACE$(29)
LOCATE 16,30 : PRINT Bem$(losch)+SPACE$(15)
COLOR 0,0
LOCATE 8,17 : PRINT SPACE$(50)
LOCATE 10,16 : PRINT SPACE$(50)
daten=1
GOTO Datloschmaus1
Noexist:
LOCATE 10,13 : PRINT" ... Datensatz mit dieser Nummer existiert nicht ! "
FOR v=0 TO 2500 : NEXT v
LOCATE 10,13 : PRINT SPACE$(57)
GOTO Nummereingeben
Loschen:
REM IF daten=0 THEN GOTO Datloschmaus
KILL "Video"
OPEN "Video" FOR APPEND AS 1
neu2=1
Fertig1:
IF neu2=losch THEN neu2=neu2+1
IF neu2>losch1 THEN
CLOSE 1
COLOR 5,7
LOCATE 14,30 : PRINT SPACE$(34)
LOCATE 15,30 : PRINT SPACE$(34)
LOCATE 16,30 : PRINT SPACE$(34)
COLOR 5,0
COLOR 5,4 : LOCATE 22,31 : PRINT "Nummer eingeben" : COLOR 5,0
daten=0 : losch1=losch1-1 : GOTO Datloschmaus
END IF
PRINT#1,Ftit$(neu2)
PRINT#1,Fummer$(neu2)
PRINT#1,Bem$(neu2)
neu2=neu2+1 : GOTO Fertig1
Vorhanden:
OPEN "Video" FOR APPEND AS 1
IF LOF(1)=0 THEN vorhand=1 :ELSE vorhand=0
CLOSE 1 : RETURN
Einlesenneu:
OPEN "Video" FOR INPUT AS 1
losch1=0
Ein2:
losch1=losch1+1
INPUT#1,Ftit$(losch1) : INPUT#1,Fummer$(losch1) : INPUT#1,Bem$(losch1)
IF EOF(1)=0 THEN Ein2
CLOSE 1 : RETURN
Datsuch:
losch1=1 : daten=0
FOR x=0 TO 15
PALETTE x,0,0,0
NEXT x
COLOR 0,0 : CLS
LINE (110,10)-(510,42),6,bf
LINE (120,15)-(500,37),5,b
COLOR 5,4
LINE ( 66,162)-(556,181),4,bf
LINE ( 70,179)-(550,164),5,b
LINE (222,179)-(222,164),5
LINE (368,179)-(368,164),5
LOCATE 22,13 : PRINT " Suchen "
LOCATE 22,31 : PRINT " "
LOCATE 22,50 : PRINT "zurück Hauptmenue"
COLOR 4,6
LOCATE 4,33 :PRINT " DATEN SUCHEN!"
COLOR 5,7
LINE (100,95)-(540,135),5,bf
COLOR 7,5
LOCATE 14,16 : PRINT "Filmtitel :"
LOCATE 15,16 : PRINT "Cassetten Nr:"
LOCATE 16,16 : PRINT "Bemerkung :"
COLOR 5,7
LOCATE 14,30 : PRINT SPACE$(34)
LOCATE 15,30 : PRINT SPACE$(34)
LOCATE 16,30 : PRINT SPACE$(34)
COLOR 5,0
GOSUB Farbdef
IF vorhand=1 THEN
BEEP
COLOR 5,0 : LOCATE 20,15 : PRINT " ... he Baby ! Erst was eingeben dann suchen !!"
FOR z=0 TO 4000 : NEXT z : COLOR 0,0 : GOTO Anfang
END IF
GOSUB Einlesenneu
Datsuchmaus:
ON MOUSE GOSUB Datsuchstart
COLOR 5,4 : LOCATE 22,34 : PRINT TIME$
MOUSE ON
GOTO Datsuchmaus
Datsuchstart:
Maus=MOUSE(0)
y=MOUSE(1) : x= MOUSE(2)
IF x>165 AND x<180 AND y> 73 AND y<224 THEN Suchroutine
IF x>166 AND x<180 AND y>226 AND y<370 THEN Datsuchmaus
IF x>166 AND x<180 AND y>371 AND y<552 THEN CLOSE 1 : GOTO Anfang
RETURN
Suchroutine:
COLOR 5,0
LOCATE 10,18 : INPUT " Welcher Filmtitel wird gesucht :",a$
such=0 : xy=0
Suchroutine1:
FOR x=1 TO losch1
such=such+1
y=INSTR(Ftit$(such),a$)
IF y<>0 THEN GOSUB Schreib
NEXT x
IF xy=0 THEN LOCATE 10,14 : PRINT " ... keine passenden Datensätze !!! "
IF xy>0 THEN LOCATE 10,14 : PRINT " ... nichts passendes mehr da !!! "
FOR t=0 TO 2500 : NEXT t : LOCATE 10,20 : PRINT SPACE$(40)
LOCATE 19,30 : PRINT SPACE$(18)
GOTO Datsuchmaus
Schreib:
COLOR 5,0
xy=xy+1
LOCATE 19,30 : PRINT "Datensatznr.:"such
COLOR 5,7
LOCATE 14,30 : PRINT Ftit$(x)
LOCATE 15,30 : PRINT Fummer$(x)
LOCATE 16,30 : PRINT Bem$(x)
COLOR 5,0
LOCATE 10,14 : PRINT "Space zum weitersuchen, linke Maustaste zum beenden !!! "
GOSUB Warte2 : GOTO Weiter :
Warte2:
ON MOUSE GOSUB Suchfertig
MOUSE ON
IF INKEY$="" THEN Warte2
RETURN
Suchfertig:
LOCATE 10,14 : PRINT SPACE$(55)
COLOR 5,7
LOCATE 14,30 : PRINT SPACE$(30)
LOCATE 15,30 : PRINT SPACE$(30)
LOCATE 16,30 : PRINT SPACE$(30)
COLOR 5,0
LOCATE 19,30 : PRINT SPACE$(35)
GOTO Datsuchmaus
RETURN
Weiter:
COLOR 5,7
LOCATE 14,30 : PRINT SPACE$(30)
LOCATE 15,30 : PRINT SPACE$(30)
LOCATE 16,30 : PRINT SPACE$(30)
COLOR 5,0
RETURN
Allesende:
LINE (180,158)-(426,135),4,bf
LINE (180,158)-(426,135),5,b
COLOR 5,4
LOCATE 19,25 : PRINT " JA AUFHÖHREN NEIN "
LINE (192,155)-(240,140),5,b : LINE (348,155)-(406,140),5,b
Endemaus:
ON MOUSE GOSUB Endestart
MOUSE ON
GOTO Endemaus
Endestart:
Maus=MOUSE(0)
y=MOUSE(1) : x= MOUSE(2)
IF x>141 AND x<156 AND y>195 AND y<242 THEN SYSTEM : REM `Ja`
IF x>141 AND x<156 AND y>351 AND y<401 THEN Zuruck : REM `Nein`
RETURN
Zuruck:
LINE (180,158)-(426,135),0,bf
LINE ( 66,137)-(556,157),4,bf
LINE ( 70,140)-(550,154),5,b
LINE (222,140)-(222,154),5
LINE (368,140)-(368,154),5
COLOR 7,4
LOCATE 19,12 : PRINT "Datei Sortieren"
LOCATE 19,30 : PRINT " f r e i "
LOCATE 19,51 : PRINT "Etikett drucken"
GOTO Maus
Datsort:
FOR x=0 TO 15
PALETTE x,0,0,0
NEXT x
COLOR 0,0 : CLS : COLOR 4,6
LINE (110,10)-(510,40),6,bf
LINE (120,15)-(500,35),5,b
LINE (110,10)-(510,42),6,bf
LINE (120,15)-(500,37),5,b
LOCATE 4,30 : PRINT " S O R T I E R E N "
COLOR 5,4
LINE ( 66,162)-(556,181),4,bf
LINE ( 70,179)-(550,164),5,b
LINE (222,179)-(222,164),5
LINE (368,179)-(368,164),5
LINE ( 70,120)-(560,142),5,bf
LINE ( 70,120)-(560,142),7,b
COLOR 7,5 : LOCATE 17,15 : PRINT "INFO-FENSTER : "
COLOR 4,5 : LOCATE 17,30 : PRINT " Das Sortieren kann länger dauern !"
COLOR 5,4 : daten=0
LOCATE 22,13 : PRINT "Alphabetisch"
LOCATE 22,33 : PRINT "Nummerisch"
LOCATE 22,50 : PRINT "zurück Hauptmenue"
GOSUB Durcheinander : GOSUB Farbdef : GOSUB Vorhanden
IF vorhand=1 THEN
BEEP : COLOR 4,5 : LOCATE 17,30 : PRINT " ... keine Daten vorhanden !!! "
FOR z=0 TO 4000 : NEXT z : GOTO Anfang
END IF
GOSUB Einlesenneu
Sortmaus:
ON MOUSE GOSUB Sortstart
COLOR 4,0 : LOCATE 24,34 : PRINT TIME$
MOUSE ON
GOTO Sortmaus
Sortstart:
Maus=MOUSE(0)
y=MOUSE(1) : x= MOUSE(2)
IF x>165 AND x<180 AND y> 73 AND y<224 THEN Alphabetisch
IF x>166 AND x<180 AND y>226 AND y<370 THEN Nummerisch
IF x>166 AND x<180 AND y>371 AND y<552 THEN CLOSE 1 : GOTO Anfang
RETURN
Alphabetisch:
OPEN "video" FOR INPUT AS 1
x=0 : COLOR 4,5
Alpha:
INPUT#1,Ftit$(x)
INPUT#1,Fummer$(x)
INPUT#1,Bem$(x)
x=x+1
LOCATE 17,31 : PRINT " ...lese Datensatz Nr."x" "
IF EOF(1)=0 THEN Alpha
CLOSE 1
losch1=x-1 : x=0
FOR sort1=0 TO losch1
FOR sort2=sort1+1 TO losch1
IF UCASE$(Ftit$(sort1))>UCASE$(Ftit$(sort2)) THEN
SWAP Ftit$(sort1),Ftit$(sort2)
SWAP Fummer$(sort1),Fummer$(sort2)
SWAP Bem$(sort1),Bem$(sort2)
END IF
LOCATE 17,31 : PRINT " ...sortiere Datensatz Nr."sort2" "
NEXT sort2
NEXT sort1
OPEN "video" FOR OUTPUT AS 1
x=0
Alpha1:
PRINT#1,Ftit$(x)
PRINT#1,Fummer$(x)
PRINT#1,Bem$(x)
x=x+1
LOCATE 17,31 : PRINT "Schreibe Datensatz Nr."x" zurück ! "
IF x<losch1+1 THEN Alpha1
CLOSE 1
LOCATE 17,31 : PRINT " SORTIEREN NACH ALPHABET BEENDET ! "
GOTO Sortmaus
Nummerisch:
OPEN "video" FOR INPUT AS 1
x=0 : COLOR 4,5
Numm:
INPUT#1,Ftit$(x)
INPUT#1,Fummer$(x)
INPUT#1,Bem$(x)
x=x+1
LOCATE 17,31 : PRINT " ...lese Datensatz Nr."x" "
IF EOF(1)=0 THEN Numm
CLOSE 1
losch1=x-1 : x=0
FOR sort1=0 TO losch1
FOR sort2=sort1+1 TO losch1
IF UCASE$(Fummer$(sort1))>UCASE$(Fummer$(sort2)) THEN
SWAP Ftit$(sort1),Ftit$(sort2)
SWAP Fummer$(sort1),Fummer$(sort2)
SWAP Bem$(sort1),Bem$(sort2)
END IF
LOCATE 17,31 : PRINT " ...sortiere Datensatz Nr."sort2" "
NEXT sort2
NEXT sort1
OPEN "video" FOR OUTPUT AS 1
x=0
Numm1:
PRINT#1,Ftit$(x)
PRINT#1,Fummer$(x)
PRINT#1,Bem$(x)
x=x+1
LOCATE 17,31 : PRINT "Schreibe Datensatz Nr."x" zurück ! "
IF x<losch1+1 THEN Numm1
CLOSE 1
LOCATE 17,31 : PRINT "SORTIEREN NACH CASSETTEN NR. BEENDET !"
GOTO Sortmaus
Etidruck:
FOR x=0 TO 15
PALETTE x,0,0,0
NEXT x
COLOR 0,0 : CLS : COLOR 4,6
LINE (110,10)-(510,42),6,bf
LINE (120,15)-(500,37),5,b
LOCATE 4,28 : PRINT " Etiketten Druck "
LINE (125,57)-(205,77),10,bf : REM E 120
LINE (125,57)-(205,77), 7,b
LINE (268,57)-(348,77),11,bf : REM E 180
LINE (268,57)-(348,77),7,b
LINE (411,57)-(491,77),12,bf : REM E 240
LINE (411,57)-(491,77),7,b
COLOR 7,10
LOCATE 9,18 : PRINT " E 120 "
COLOR 7,11
LOCATE 9,36 : PRINT " E 180 "
COLOR 7,12
LOCATE 9,54 : PRINT " E 240 "
LINE ( 66,162)-(556,181),4,bf
LINE ( 70,179)-(550,164),5,b
LINE (222,179)-(222,164),5
LINE (368,179)-(368,164),5
LINE ( 70, 85)-(560,130),7,bf
LINE ( 70, 85)-(560,130),5,b
COLOR 5,7
LOCATE 13,14 : PRINT " Filmtitel : ................................"
LOCATE 15,14 : PRINT " Cassetten Nr. : ... "
COLOR 5,4
LOCATE 22,12 : PRINT "Etikett Drucken"
LOCATE 22,31 : PRINT "Nummer eingeben"
LOCATE 22,50 : PRINT "zurück Hauptmenue"
GOSUB Farbdef : GOSUB Vorhanden
IF vorhand=1 THEN
BEEP : COLOR 4,5 : LOCATE 17,30 : PRINT " ... keine Daten vorhanden !!! "
FOR z=0 TO 4000 : NEXT z : GOTO Anfang
END IF
GOSUB Einlesenneu
Etimaus:
ON MOUSE GOSUB Etistart
COLOR 4,0 : LOCATE 24,34 : PRINT TIME$
MOUSE ON
GOTO Etimaus
Etistart:
Maus=MOUSE(0)
y=MOUSE(1) : x= MOUSE(2)
IF x>165 AND x<180 AND y> 73 AND y<224 THEN Etimaus
IF x>166 AND x<180 AND y>226 AND y<370 THEN Nummerein
IF x>166 AND x<180 AND y>371 AND y<552 THEN CLOSE 1 : GOTO Anfang
IF x> 59 AND x< 78 AND y>129 AND y<205 THEN E120
IF x> 59 AND x< 78 AND y>273 AND y<348 THEN E180
IF x> 59 AND x< 78 AND y>415 AND y<492 THEN E240
RETURN
Etimaus1:
ON MOUSE GOSUB Etistart1
COLOR 4,0 : LOCATE 24,34 : PRINT TIME$
MOUSE ON
GOTO Etimaus1
Etistart1:
Maus=MOUSE(0)
y=MOUSE(1) : x= MOUSE(2)
IF x>165 AND x<180 AND y> 73 AND y<224 THEN Etikett
IF x>166 AND x<180 AND y>226 AND y<370 THEN Falsch
IF x>166 AND x<180 AND y>371 AND y<552 THEN CLOSE 1 : GOTO Anfang
IF x> 59 AND x< 78 AND y>129 AND y<205 THEN E120
IF x> 59 AND x< 78 AND y>273 AND y<348 THEN E180
IF x> 59 AND x< 78 AND y>415 AND y<492 THEN E240
RETURN
E120:
PALETTE 10,1,0,0
PALETTE 11,0,0,0
PALETTE 12,0,0,0
COLOR 5,7
LOCATE 14,58 : PRINT " E 120 "
wert=1 : IF eingegeben=0 THEN Etimaus :ELSE Etimaus1
E180:
PALETTE 10,0,0,0
PALETTE 11,1,0,0
PALETTE 12,0,0,0
COLOR 5,7
LOCATE 14,58 : PRINT " E 180 "
wert=2 : IF eingegeben=0 THEN Etimaus :ELSE Etimaus1
E240:
PALETTE 10,0,0,0
PALETTE 11,0,0,0
PALETTE 12,1,0,0
COLOR 5,7
LOCATE 14,58 : PRINT " E 240 "
wert=3 : IF eingegeben=0 THEN Etimaus :ELSE Etimaus1
Nummerein:
eingegeben=1
COLOR 7,0
LOCATE 18,17 : PRINT " Es befinden sich"losch1" Datensätze im speicher !"
LOCATE 19,16 : INPUT "Welcher Datensatz soll gedruckt werden(Nr.):",losch
IF losch<1 OR losch >losch1 THEN BEEP : GOTO Nummerein
COLOR 5,4 : LOCATE 22,29 : PRINT "falscher Datensatz" : COLOR 5,7
LOCATE 13,32 : z=LEN(Ftit$(losch)) : PRINT Ftit$(losch)+SPACE$(32-z)
LOCATE 15,32 : PRINT Fummer$(losch)+SPACE$(29)
COLOR 0,0
LOCATE 18,17 : PRINT SPACE$(50)
LOCATE 19,16 : PRINT SPACE$(50)
GOTO Etimaus1
Falsch:
COLOR 5,4
LOCATE 22,29 : PRINT " Nummer eingeben "
GOTO Etimaus
Etikett:
OPEN "par:" FOR OUTPUT AS 2
a$=" " : x=LEN(Ftit$(losch)) : z=30-x
FOR w=0 TO z : Ftit$(losch)=Ftit$(losch)+a$ : NEXT w
IF wert=0 THEN a$="-----"
IF wert=1 THEN a$="E 120"
IF wert=2 THEN a$="E 180"
IF wert=3 THEN a$="E 240"
PRINT#2,"---------------------------------------------------"
PRINT#2,"| Filmtitel : "Ftit$(losch)" |"
PRINT#2,"|-------------------------------------------"a$"-|"
PRINT#2,"| Cassetten Nr.: "Fummer$(losch)" |"
PRINT#2,"---------------------------------------------------"
CLOSE 2 : eingegeben=0
GOTO Falsch
Durcheinander:
LINE (130,60)-(490,107),8,bf
LINE (130,60)-(490,107),7,b
LINE (129,59)-(491,106),7,b
COLOR 5,8
LOCATE 9,21 : PRINT " A B C D E F G H I J K L M N M O"
LOCATE 10,21 : PRINT " P Q R S T U V W X Y Z 1 2 3 4 5"
LOCATE 11,21 : PRINT " 6 7 8 9 0 å ° © ® þ ¤ µ ¡ ø ¶ ["
LOCATE 12,21 : PRINT " æ ß ð £ ; ' # ] ± × ª º ¸ , ."
LOCATE 13,21 : PRINT " ¹ @ ³ ° ¼ ½ ¾ · « » - = \ "
RETURN
ente:
LINE (100,206)-(520,235),7,bf : i=4 : ente=0
LINE (100,206)-(520,235),5,b
COLOR 6,7
LOCATE 27,14 : PRINT "Das Programm kann nur am OFF Schalter des Recorders"
LOCATE 28,14 : PRINT "beendet werden !!"
LINE (420,221)-(450,233),4,b
Entemaus:
ON MOUSE GOSUB Entestart
IF ente=1 THEN
ente=0
LINE (100,206)-(520,235),0,bf
RETURN
END IF
i=+i+1 : IF i=15 THEN i=4
COLOR i,7
LOCATE 29,54 : PRINT "OK!"
MOUSE ON
GOTO Entemaus
Entestart:
Maus=MOUSE(0)
y=MOUSE(1) : x= MOUSE(2)
IF x>221 AND x<233 AND y>421 AND y<451 THEN Haupt
RETURN
Haupt:
LINE (100,206)-(520,235),0,bf : ente=1
RETURN